home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / hardcopy koala (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  92 lines
  1. 10 rem" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] "
  2. 11 rem" [194]farbige hardcopy von koala[200] "
  3. 12 rem" [194]painter-bildern  auf jx-80[200] "
  4. 13 rem" [194]--------------------------[200] "
  5. 14 rem" [194]                          [200] "
  6. 15 rem" [194]       written by:        [200] "
  7. 16 rem" [194]                          [200] "
  8. 17 rem" [194]       michael boerner    [200] "
  9. 18 rem" [194]       im winkel 8        [200] "
  10. 19 rem" [194]  6719 weisenheim am berg [200] "
  11. 20 rem" [194]       tel: 06353/8625    [200] "
  12. 21 rem" [194]                          [200] "
  13. 22 rem" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] "
  14. 23 rem"
  15. 24 [143]" ******************************
  16. 25 rem" ** zuerst diskette einlegen **
  17. 26 [143]" ** dann 'run' eingeben      **
  18. 27 rem" ******************************
  19. 28 [143]"
  20. 30 open 1,8,1,"f.hcopy jx koala,p,w"
  21. 40 print#1,chr$(0)chr$(16);
  22. 50 for n= 1 to 623:read a$
  23. 60 a=asc(a$):b=asc(right$(a$,1))
  24. 70 a=a-48-(7anda>64):b=b-48-(7andb>64)
  25. 80 x=16*a+b:y=y+x:print#1,chr$(x);
  26. 85 next:close1:printchr$(18);
  27. 90 ify=70798thenprint"ok !":end
  28. 95 print"fehler in datas":end
  29. 100 data a9,00,a0,60,4c,32,12,00,00,ff
  30. 101 data ff,01,01,02,ff,01,02,02,04,02
  31. 102 data 02,04,04,04,01,04,00,01,04,02
  32. 103 data 00,00,ff,04,02,02,ff,ff,ff,01
  33. 104 data 02,04,08,10,20,40,80,40,20,10
  34. 105 data 08,04,02,01,10,87,40,7f,40,7f
  35. 106 data 28,83,0f,0f,f0,f0,0f,0f,0f,0f
  36. 107 data 10,87,40,7f,40,7f,28,83,a9,1b
  37. 108 data 20,dd,ed,a9,2a,20,dd,ed,a9,04
  38. 109 data 20,dd,ed,a9,40,20,dd,ed,a9,01
  39. 110 data 20,dd,ed,60,a0,18,d0,02,a0,00
  40. 111 data a9,1b,20,dd,ed,a9,33,20,dd,ed
  41. 112 data 98,20,dd,ed,60,a9,00,a0,1e,85
  42. 113 data fb,84,fc,a0,00,b1,fb,d0,13,e6
  43. 114 data fb,d0,02,e6,fc,a5,fb,c9,40,d0
  44. 115 data f0,a5,fc,c9,1f,d0,ea,60,a9,28
  45. 116 data 85,fd,a9,00,a0,1e,85,fb,84,fc
  46. 117 data a9,1b,20,dd,ed,a9,72,20,dd,ed
  47. 118 data a5,8d,20,dd,ed,20,4e,10,a2,07
  48. 119 data a9,00,95,a4,ca,10,fb,a0,07,b1
  49. 120 data fb,85,be,a2,07,a5,be,3d,27,10
  50. 121 data f0,07,b5,a4,19,2e,10,95,a4,ca
  51. 122 data 10,ef,88,10,e6,a5,fb,18,69,08
  52. 123 data 85,fb,90,02,e6,fc,a2,07,b5,a4
  53. 124 data 20,dd,ed,ca,10,f8,c6,fd,d0,c2
  54. 125 data a9,0d,20,dd,ed,60,a9,19,85,9e
  55. 126 data 20,6c,10,a9,00,85,9f,a9,04,85
  56. 127 data 8d,a5,8b,a4,8c,85,fb,84,fc,a9
  57. 128 data 00,a0,1e,85,b5,84,b6,a9,28,85
  58. 129 data be,a0,07,b9,36,10,99,a4,00,88
  59. 130 data 10,f7,a0,07,a9,00,91,b5,88,10
  60. 131 data fb,a9,08,85,22,a0,00,b1,fb,2a
  61. 132 data 2a,2a,2a,20,56,12,d0,06,a0,00
  62. 133 data a9,c0,91,b5,a0,00,b1,fb,6a,6a
  63. 134 data 6a,20,56,12,d0,08,a0,00,b1,b5
  64. 135 data 09,30,91,b5,a0,00,b1,fb,6a,20
  65. 136 data 56,12,d0,08,a0,00,b1,b5,09,0c
  66. 137 data 91,b5,a0,00,b1,fb,2a,20,56,12
  67. 138 data d0,08,a0,00,b1,b5,09,03,91,b5
  68. 139 data e6,b5,d0,02,e6,b6,e6,fb,d0,02
  69. 140 data e6,fc,c6,22,f0,03,4c,3b,11,e6
  70. 141 data aa,d0,02,e6,ab,e6,a6,e6,a8,d0
  71. 142 data 04,e6,a7,e6,a9,c6,be,f0,03,4c
  72. 143 data 2e,11,20,7d,10,a9,0d,20,dd,ed
  73. 144 data a9,7f,8d,00,dc,ad,01,dc,c9,7f
  74. 145 data f0,5b,c6,8d,30,0b,a5,8d,c9,03
  75. 146 data d0,02,c6,8d,4c,0f,11,e6,9f,a5
  76. 147 data 9f,c9,02,f0,03,4c,0b,11,20,68
  77. 148 data 10,a9,0a,20,dd,ed,20,6c,10,c6
  78. 149 data 9e,f0,32,ad,3c,10,18,69,28,8d
  79. 150 data 3c,10,90,03,ee,3d,10,ad,38,10
  80. 151 data 18,69,28,8d,38,10,8d,3a,10,90
  81. 152 data 06,ee,39,10,ee,3b,10,a5,8b,18
  82. 153 data 69,40,85,8b,a5,8c,69,01,85,8c
  83. 154 data 4c,07,11,20,68,10,a9,0a,20,dd
  84. 155 data ed,a9,00,20,dd,ed,a9,04,20,fe
  85. 156 data ed,60,85,8b,84,8c,a0,07,b9,46
  86. 157 data 10,99,36,10,88,10,f7,a9,00,85
  87. 158 data 90,a9,04,20,0c,ed,a9,60,20,b9
  88. 159 data ed,a5,90,30,de,4c,00,11,29,06
  89. 160 data aa,a1,a4,e0,02,d0,04,4a,4a,4a
  90. 161 data 4a,29,0f,0a,65,9f,a8,a5,8d,d9
  91. 162 data 07,10,60
  92.